home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / systems / atari / birkhahn-metafont-packed-disks / mf27-2_2e-disk2.zoo / inputs / handy.lzs / MIRROR.MF < prev    next >
Text File  |  1989-11-20  |  364b  |  21 lines
  1. % pattern_mirror
  2. def pattern=
  3. def endchar=
  4. tracingequations:=1;
  5. cullit;
  6. picture normalchar;
  7. normalchar:=currentpicture;
  8. picture mirrorimage;
  9.   mirrorimage:=normalchar
  10.   reflectedabout((0,0),(0,h))
  11.   shifted (w,0);
  12. currentpicture:=mirrorimage;
  13. scantokens extra_endchar;
  14. chardx:=w;
  15. shipit;
  16. if displaying>0:  showit; fi
  17. endgroup;
  18. enddef;
  19. enddef;
  20.  
  21.